
************************************************************************************************************
**#							TABLE 9 - MEDIA REPORRTING ON THE PAY RATIO
************************************************************************************************************

capture cd "/Users/joshw/CEO Pay Ratio/Analysis/"
use "Data/Temp/dataset_main.dta", clear

******************************
*Summary Stats (not tabulated)
******************************

*Coverage indicator
tabstat media_ind , by(pr_quint) stat(mean n)
tabstat media_ind if pr_quint>=2 & pr_quint<=4

*Tone conditioned on coverage
tabstat media_tone if(media_ind==1), by(pr_quint) stat(mean n)
tabstat media_tone if pr_quint>=2 & pr_quint<=4 & media_ind==1

**************************
*Panel A - Media Reporting
**************************
est clear
eststo: xi: reghdfe media_ind pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe media_ind pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe media_ind ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: xi: reghdfe media_ind ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: xi: reghdfe media_tone pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 & media_ind==1, absorb(ffi49)
eststo: xi: reghdfe media_tone pr_quint_5 pr_quint_1 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 & media_ind==1, absorb(indyr)
eststo: xi: reghdfe media_tone ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 & media_ind==1, absorb(ffi49)
eststo: xi: reghdfe media_tone ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 & media_ind==1, absorb(indyr)
esttab using "Output/Tables/RF/T9_media_reporting.csv", b(3) ar2 varwidth(25) title("Media reporting") order(pr_quint_5 pr_quint_1 ln_upr ln_epr size mtb roa io cash lev salesg_w tsr union rd) star(* 0.10 ** 0.05  *** 0.01 ) drop(_cons) replace

***************************************
*Panel B - Media Coverage and Employees
***************************************
est clear
eststo: reghdfe gd_pay_diff_365 pr_quint_5 pr_quint_1 media_ind gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)        
eststo: reghdfe gd_pay_diff_365 pr_quint_5 pr_quint_1 media_ind gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)        
eststo: reghdfe ln_prod_diff     pr_quint_5 pr_quint_1 media_ind ln_prod_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets if sample_yr==1, absorb(ffi49)
eststo: reghdfe ln_prod_diff     pr_quint_5 pr_quint_1 media_ind ln_prod_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets if sample_yr!=1, absorb(indyr)
eststo: reghdfe gd_ceodis_diff_365   pr_quint_5 pr_quint_1 media_ind gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1, absorb(ffi49)
eststo: reghdfe gd_ceodis_diff_365   pr_quint_5 pr_quint_1 media_ind gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1, absorb(indyr)
eststo: reghdfe gd_pay_diff_365 pr_quint_5 pr_quint_1 media_tone gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 & media_ind==1, absorb(ffi49)
eststo: reghdfe gd_pay_diff_365 pr_quint_5 pr_quint_1 media_tone gd_pay_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 & media_ind==1, absorb(indyr)
eststo: reghdfe ln_prod_diff     pr_quint_5 pr_quint_1 media_tone ln_prod_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets if sample_yr==1 & media_ind==1, absorb(ffi49)
eststo: reghdfe ln_prod_diff     pr_quint_5 pr_quint_1 media_tone ln_prod_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets if sample_yr!=1 & media_ind==1, absorb(indyr)
eststo: reghdfe gd_ceodis_diff_365   pr_quint_5 pr_quint_1 media_tone gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr==1 & media_ind==1, absorb(ffi49)
eststo: reghdfe gd_ceodis_diff_365   pr_quint_5 pr_quint_1 media_tone gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd if sample_yr!=1 & media_ind==1, absorb(indyr)
esttab using "Output/Tables/RF/T9_media_emp.csv", b(3) ar2 varwidth(25) title("Media and Employees") order(media_ind pr_quint_5 pr_quint_1 media_tone gd_pay_pre_365 ln_prod_pre_365 gd_ceodis_pre_365 size mtb roa io cash lev salesg_w tsr union rd fixed_assets) star(* 0.10 ** 0.05  *** 0.01 ) drop( _cons) replace
